图像细化函数（背景为黑色像素值为0，前景为白色像素值255，必须只含有0和255的像素值，即二值化后的图像）

procedure thinimage(srcimage:pIplImage);var count:Integer; //表示迭代次数 Zhangmude:array [1..9] of Intege ...